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U78FO --- DISK INITIALIZATION PROGRAM FOR THE 4962 PN=1635488 EC=755404 PAGE 01 U78FO --- DISK INITIALIZATION PROGRAM FOR THE 4962 PN=1635488 EC=755404 PAGE O1A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
RUE TT TT LSC S SST CLS CLSSCSSISCSSL SOLS SCS SILLS SSE SS CL LS SSL SP SPS TS STS SS TTS eS Se SS 00001D 119+B61 EQU 29 13 4 * 
i: TEE ores; 
5 * XK & PREREQUISITES KX * + 
6 * Q * OOOO1E 122+CH EQU 30 14 2 CHARACTER SUPPLIED 
7k NONE * 00001F 123+CMP EQU 31 15 1 COMPARE OPERATION 
8 * x 00191A 0000 125+OPTN3 DC x*'o000! PROGRAM OPTION CONTROL WORD 3 
eT PtTErErrTertrtter rr Tre Ter rrrr errr rerrrELrrre LSE err TL eee L Cee Les eCCe rere ss 126+* 
10 * * 127+* O MYSTERY INTERRUPT MI 8 CS STATUS IN PROGRESS cS 
11 * kK MODIFICATIONS kK * 128+* 1 ERROR INTERRUPT ER 9 CS AVAILABLE CSA 
12 * * 129+* 2 EXPECTED INTERRUPT XI 10 CS STATUS INTERRUPT ERR CE 
13 * CHANGES DUE TO HARDWARE UPDATES : Ene 3 INTERRUPT RECEIVED IN 11 ISB BITS ON (1-7) ISBON 
* 
9 ie oi eo oe oie 0 2k fe a oe a a a i a i RO OR I RR I I I ROR I RO RO a kk 132+* 4 EXPECTED ERR/ATTENT XE 12 TEST UNIT RESULTS VOID NG 
16 * * 133+* 5 HARD ERROR FOUND HE 13. OIO CC ERROR TOCC 
17 * KK REA'S INCORPORATED HK X * 134+* 6 WRONG INTR LEVEL SLE 14 NO INTERRUPT NOIN 
18 * x 135+* 7 NO INTR EXPECTED NI 15 INTERRUPT CC ERROR INCC 
19 * NONE * 136+* BIT HEX 
20 * * 000020 1I3Z3TtMI EQU 32 0 8 MYSTERY INTERRUPT HAPPENED 
21 a OCR IO A I RG OR kd dk kk 000021 138+ER EQU 33 1 4 ERROR RECEIVED ON INTERRUPT 
a : 888933 iaorte EU 38 8 f FARBGRUBSTURERNUED COUPEE BIT 
23 * x SPECIAL INSTRUCTIONS #4% * 
5y x 000024 1414+XE EOU 36 4 8 EXPECTED ERROR RESPONSE 
35 * NONE x 000025 142+HE EOU 37 5 4 HARD ERROR, 8 RETRIES 
26 * x 000026 143+$LE EQU 38 6 2 INTERRUPT bn WRONG LEVEL ERROR 
27 FRI I I RIO III RR RRR OR a ok kk i dete ke 000027 T444NTI EQU 39 7 1 NO INTERRUPT EXPECTED E 
28 * x 000028 1454+€S EQU 4&0 8 8 CYCLE STATUS EN PROGRESS 
29 * 4K E. C. HISTORY AK * 000029 1464+CSA EQU 41 9 4 CYCLE STEAL AVAILABLE 
30 * * OOO0O2A 1474#C EQU 42 10 2 CYCLE STEAL STATUS INERRRUPT ERROR 
Eee DATE MyBasee RAGE aogeds) «BfCe o8anou” 6 Bec. : 00003¢ luotne EOU | 4G 13 8 FEST UNTT RESULTS NO GOOD 
33 * * 00002D 150+IOCC EQU 45s 13 4 OIO CC ERROR 
34 3 kd i rok a Fo IR I RR RR Roto ok ite oak ak 00002E 1IS1+NOIN EQU 46 14 2 NO INTERRUPT 
36 oR RII i digit dk ito do kk k dedi dk i kkk 00002F ea EQU 47 15 1 INTERRUPT CC ERROR 
37 * DEFINE CONSTANT AREA FOR PROGRAM I.D. U78F0 * 
38 EEE HEHE IE SISO Ea IIE EIB GEG HE TA a Oa a IEG TSH ICISGHOIOE Noes COMMON BUFFER FOR PRINTING DATA 
001800 39 U78FO START X*1800'! PROGRAM START ADDRESS 
001800 FT7F8C6FO uO PID DC C'78FO! PROGRAM NAME 00191C 0000 157+$TUID DC A (*-* TEST UNIT IDENTIFICATION 
001804 0000 uf DC x'0000! LEVEL 00191E 0000 158+S$IOIN DC A (*-* T/O AND INTR CONDITION CODES 
001806 1D68 42 STADDR DC A T7895), START EXECUTION ADDRESS 001920 0000 159+$ISB_ DC A (*-* R f INTR STATUS BYTE & DEV ADRS 
001808 1812 43 DEVPT DC A (DEVTAB) POINTER TO DEV TABLE 001922 0000 160+LSTIO DC A (*-* ADRS OF LAST 1/0 + 4 BYTES 
00180A 0000 44 RTNE DC At0 ROUTINE NUMBER 001924 9000 1614+DEVI DC A (*-* DEVICE DEPENDENT DATA 
00180C 0000 45 CKPT DC A 0} CHECKPOINT NUMBER 001926 0000 162+DEV2 DC A (*-* * 
00180E 00000000 46 Dc 2B ( , OPTION WORD ONE AND TWO 001928 0000 163+DEV3 DC A (*-* * 
001812 ¢001 47 DEVTAB DC x*cOd1! START OF DEVICE TABLE 00192A 0000 1644+DEV4 DC A (*-* * 
001814 0000 48 DEVADD DC x'0000! DEVICE ADDRESS AND TYPE 001924 165+#SCTID EQU DEV1 READ ID BUFFER FOR IBIS & TERN 
001816 0000000000000000 49 ASSIGN DC XL8*00! DEVICE DEPENDENT DATA 00192C 166+DCBUF EQU) * DCB BUFFER FOR LAST DCB USED 
00181E 78 50 TYP78 DC x'78' DEVICE TYPE FOR THIS PROGRAM 00192c 0000 167+DCB1 DC A (*-* LAST DCB TABLE, CONTROL WORD 
001820 0002 51 @ETOH DC A(2 FBC TO HEX CONTROL BLOCK 00192E 0000 168+DCB2 DC A (*-* LAST DCB TABLE, DEV DEP WORD 
001822 1830 52 @ETOH1 DC A ean FROM DATA ADDRESS 001930 0000 169#DCB3 DC A (*-* LAST DCB TABLE, DEV DEP WORD 
001824 1814 53 @ETOH2 DC At(DEVADD TO DATA ADDRESS 001932 0000 170#+DCB4Y DC A (*-* LAST DCB TABLE, DEV DEP WORD 
001826 00C0 54 DC X¥"OOCOt CONTROL BYTE FOR OUTIN CONTROL BLOCK 001934 0000 171#DCB5 DC A (*~-* LAST DCB TABLE, DEV DEP WORD 
001828 1834 55 @OUTIN DC A MSG) ADDRESS OF MESSAGE 001936 0000 172+DCB6 DC A (*-* LAST DCB TABLE, CHAIN ADRS 
00182A 1830 56 DC A (INAREA) ADDRESS OF INPUT AREA 001938 0000 173+DCB7 DC A (*-* LAST DCB TABLE, BYTE COUNT 
00182c 0002 57 DC A 3) LENGTH OF INPUT DATA 00193A 0000 eee DC A (*-* LAST DCB TABLE, BUFFER ADDRESS 
00182E 0000 58 DC A (0 TYPE OF INPUT EBC 
001830 4040 59 INAREFA DC ct ' OUTIN INPUT AREA ) 00193C 176+CSBUF EQU * CYCLE STEAL DATA BUFFER 
001832 78F1 60 pc X'78F1? STOP CODE FOR REQUEST OF DEV. ADD. 00193C 0000 177+CSTL1 DC A (*- CYCLE STEAL BUFFER, RESIDUAL ADRS 
001834 FUFIF6F2Z4O0C9DSCIE 61 MSG DC C'4962 INITIALIZATION, ENTER DEV ADDRESS'* 00193E 0000 178+CSTL2 DC A (*-* CYCLE STEAL WD 2, SEVICE DEPEND 
00185A 00 62 DC xtoo? 001940 0000 179*#CSTL3 DC A (*¥- CYCLE STEAL WD 3, DEVICE DEPEND 
63 * THE FOLLOWING DC'S ARE TO SATISFY THE $SERR$ ROUTINE 001942 0000 180+CSTL4 DC A (*-* CYCLE STEAL WD 4, DEVICE DEPEND 
00185C 18CE 64 TUMSGWTR DC A (OMSGWTR) ADDRESS OF ABORT MESSAGE WRITER 001944 0000 181+CSTLS DC A (*-* CYCLE STEAL WD 5, DEVICE DEPEND 
ag1838 2005 go dusears be RG puaey. ty Seas gust B3as Wms. alee eet ty pecs ters 
0 860 000000 0 000 6 DC WORK AREA FOR ABORT PRINTAREA = ’ 
Aedeee: eoGee Oo aoe ond 6c a Meee ee peaaen 00194A 0000 IS4sCSTLE DC hk CYCLE STEAL WD 8, DEVICE DEPEND 
8 0 U PO R 
DolccE (ogee Oo ee eee a oe a Dee eeATc ABER 00194c 0000 1864+$SUBN DC A aep LAST SUBROUTINE ADDRESS USED 
0018C6 0080 70 a0UT1 DC X'0080! CONTROL BYTE FOR OUT CONTROL BLOCK 00194E 00000000 187+$DATA DC 2A (*-* OPTIONAL DATA 
0018C8 0000 71 20UT pc A (0 ADDRESS OF MESSAGE 001952 0021 188+$SINTL DC X*0021° INTERRUPT LEVEL REQUESTED 
Q0018CA 78F2 712 DC x (ibe os STOP CODE FOR ABORT MESSAGE BOdaee oo” ae BS ara TEST UNIT RETURN ADRS TO MDI 
e g E 
SOagGc. 22080 da gene, Re a DOREY “REOR? Aeon ree 001958 1814 191sSVCAL DC A (DEVADD) ADRS OF DEVICE ADDRESS 
715 * THE FOLLOWING ROUTINE WILL OUTPUT ***ABORT**** MSG 00195A 0000 Le DC A (*-*) IBIS CYLINDER ADDRESS 
76 * 
0018CE 6908 1D5C 77 @MSGWTR MVW DC2PT,R1 ADDRESS OF MESSAGE AREA 1944+* THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM 
0018D2 0102 78 ABIL TWO ,R1 POINT R1 AT FIRST LINE LENGTH 195+* FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESULTS AREA ARE 
0018D4 CA55 an MVWZ R1}+,R2 LOAD R2 WITH LENGTH Ace STILL VALID BUT A DIFFERENT TEST IS TO BE PERFORMED. 
0018 D6 690D 18C8 8 MVW 1 our MOVE ADDRESS OF MESSAGE INTO BLOCK 
nate oR 4020 1802 C6F2 81 MVWI X'€6F2" ,PID+2 LOAD PID WITH X'F2' STOP CODE 00195C 4020 191C 3C02 198#T3CO2 MVWI xX*3C02', $TUID SET UP TEST UNIT ID 
0018E0 4724 18C8 82 MVA @OUT,R7 LOAD ADDRESS OF CONTROL BLOCK 001962 5700 199+ BXS eg fBT) RETURN TO MDI SUPVR 
0018E4 6000 83 STC OUT ISSUE SVC 201 TESTS CTT CSC CCST TST ICCC OCT S LS SCCST| PTS ST TTT CTT TT TTT TTT TTT TT TTT TT Tt ts 
0018E6 0108 84 ABI EIGHT,R1 BUMP R1 * * 
0018E8 CA25 1D5A 85 MVWZ BUEPT/ R2 ZERO END OF DATA AREA 203 : EQUATED NAMES FOR SUPPORTED SVC'*S : 
peas cree 0006 86 MSGWTR1 ae re . R2 TORE Deana Oe RECchoR. 905 3 OR IOI I GIG IO IIA IGG IIR IR IO A III II aK 
0018F2 690D 18C8 88 MVW 4 obt LOAD ADDRESS OF MESSAGE INTO BLOCK 000000 206 OUT EQU- OQ T Ss 
0018F6 4724 18C8 89 MVA aobrT,R7 AD ADDRESS OF BLOCK 000001 207 OUTIN EQU 1 OUTIN SVC 
0018FA 6000 90 SVC ouT ISSUE SVC 000002 208 IDLE EQU 2 IDLE SVC 
0018FC 0128 91 ABI X'28' R1 BUMP TO NEXT LINE 000003 209 ASCII EQU) 3 HEX TO ASCII SVC 
0018FE BCF8 92 JCT MSGUTR1,R4 BRANCH FOR COUNT BaoGes 210 CHNGE Bed 4 CHANGE LEVEL SVC 
001900 4020 18C6 00CO 93 MVWI X'00CO! ,aO0UTI CHANGE CONTROL BYTE 0005 211 PGMCK EQU 5 ALLOW RETURN ON PROGRAM CHECK SVC 
001906 4020 18Cc8 18CC 94 MVA ABMSG, @OUT LOAD ADDRESS OF ABORT MESSAGE 000006 212 EXIT EOU 6 EXIT SVC 
00190C 4724 18C8 95 MVA aouT, R7 LOAD ADDRESS OF CONTROL BLOCK 000007 213 TERM EQU 7 TERMINATE SVC 
001910 6000 96 SVC our ISSUE SVC nobeuS Z43 BEoee Eee : RESET Device SVC 
001912 6802 1Cc48 97 B CONX BRANCH TO END 
38 + : 00000 216 START EQU 10 START CYCLE STEAL SVC 
99 * OOO0OOB 217 STCSS EQU 11 START CYCLE STEAL STATUS SVC 
13 ePEE 333086 1 ne, BRE EHDMESDPUSGESSSG ore 3 ofr svc 
001916 0000 102+*OPTN1 DC X'00008 PROGRAM OPTION CONTROL WORD 1 
103+* OOO00E 220 READ EQU 14 READ WITH FUNCTION BIT 3 ON SVC 
001918 0000 104+OPTN2 DC X*0000' PROGRAM OPTION CONTROL WORD 2 OOO00F 221 RSTAT EQU 15 READ STATUS SVC 
105+* BIT HEX 000010 222 WRITO EOU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
000010 1064+B48 EQU 16 0 8 PROBLEM PROGRAM CONTROL BITS 000011 223 WRIT EQU 17 WRITE WITH FUNCTION BIT 3 ON SVC 
000011 107+B49 EOU 17 1 4 * 000012 224 CTRL EQU 18 CONTROL SVC 
000012 108+B50 EOU 18 2 2 * THESE BITS ARE USED WITH THE 000013 225 RICB’ EQU 19 RELEASE INTERUOPT CONTROL BLOCK SVC 
000013 1094+B51 EOU 19 3 1 * SFCOND OPTION WD AND ARE TO 000014 226 CICB EQU 20 CONNECT INTERUPT CONTROL BLOCK SVC 
000014 110+B52 EOU 20 4 8 * BE ASSIGNED BY EACH PROGRAMMER 000015 227 HIO EQU 21 HALT ALL I¢0 
000015 111#B53 EOU 24 5 Mm * 000016 228 REQSD EQU 22 rec oe USE OF DCP DISK SVC 
000016 112+B54 EOU 22 6 2 5 000017 229 RELSD EQU 23 RELEASE USE OF DCP DISK SVC 
000017 1134+B55 FOU 53 7 1 * 000018 230 HALT EQU 24 HALT SVC 
000018 1144+B56 EOU au 8 8 x 000019 231 ETOH EQU 25 EBCDIC TO HEX SVC (STRING 
000019 115+B57 EOU 25 9 rm * QOO01A 232 HTOE EQU 26 HEX TO EBCDIC SVC (STRING 
OOOO1A 1164+B58 FOU 36 10 2 * 00001B 233 ATOH EQU 27 ASCII TO HEX SVC TRING 
00001B 1174#B59 EOU 37 11 1 x 00001C 234 HTOA EQU 28 HEX TO ASCII SVC (STRING 
00001C 118+B60 FOU 28 12 8 * 00001D 235 ETOA EQU 29 EBCDIC TO ASCII SVc (STRING) 
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U78FO --- DISK INITIALIZATION PROGRAM FOR THE 4962 PN=1635488 EC=755404 PAGE 07 U78FO --- DISK INITIALIZATION PROGRAM FOR THE 4962 PN=1635488 EC=755404 PAGE O7A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
1391 * THIS SUBROUTINE CHECKS ALL SECTOR ID'S FOR 00232E 9063 21FA 1506 ALT22 CD CYLNM, (R1) ALT ASSIGNMENT CORRECT? 
1392 * THE PROPER SYNC VALUE, FLAG, CYLINDER, HEAD AND SECTOR. 002332 1048 1507 JE ALTEW YES 
1393 * IF NO FRRORS ARE DETECTED THE PROGRAM WILL CLEAR THE 'SYNC! 002334 7921 0006 1508 AWI 6.R1 INCREMENT BUFFER ADDRESS 
1394 * BYTE IN THE ID BUFFER. ERROR SECTORS WILL BE LOGGED OUT. 002338 71E5 1509 CW R41,R7 END OF CYL1? 
1395 * 00233A 1001 1510 JE REASG REASSIGN ALTERNATE SECTOR 
1396 * BAL SEQCL,R6 VALIDATE SECTORS 00233C 50F8 1511 J ALT22 CONTINUE CHECKING FOR ALTER SECTOR 
1397 * 00233E 4c5A 1512 REASG TBTS (Ra WRT) SET WRITE SECTOR ID FLAG 
1398 * B ae RETURN TO CALLLER 002340 80EB 21F9 0001 1513 CB 0£60+1, (R3,1) IS FLAG ZERO? 
1399 * 002346 1041 1514 JE ALTEW YES,DO NOT ASSIGN ALTERNATE 
1400 43 OR OR IG Rr gO ok lok kok koko dedi dk tote kc 002348 4uci17 1515 TBT RY ,CND) END OF CYL ONE? 
002240 6E0D 22FC 1401 SEQCL MVW R6, SEQCX4+2 SET UP RETURN 00234A 6A00 26DC 1516 BON S85 YES 
002244 4O2F 21FA 0001 1402 CWI 1,CYLNM CYL ONE? 00234E 6908 23E2 1517 MVW NEXTA,R1 GET THE NEXT AVAILABLE ASSIGNMENT 
O0224AR 1057 1403 JE SEOCX YES,RETURN TO CALLER 002352 91E8 0002 0002 1518 MVD ARi ay, (R3 2) * AND MOVE CYL, HEAD AND SEC 
00224C C225 21FD 1404 MV BZ HDSEC+1, R2 CLEAR SECTOR COUNTER 002358 9068 21FA 0002 1519 MVD YLAM, (R1,2 THEN MOVE CYL, HEAD & SEC IN ALT 
002250 4324 2F60 1405 MVA FSTID,R3 * AND THE SEC ID BUFFER ADRS 00235E 4040 OFO1 1520 MVWI X'TOFO4", (81 FORCE FLAG ON 
002254 D020 21F8 1406 MVD HOEOO,RO * WITH THE DATA TO COMPARE 002362 7921 0006 1521 ALTEM AWI ID01-1D60,R ADVANCE NEXT AVAILABLE ASSIGN 
1407 * 002366 4C1B 1522 TBT (Rs BIG) LARGE FILE? 
1408 * SYNC, FLAG AND CYL CHECKING ROUTINE 002368 1004 1523 JOFF ND 4 NO 
1409 * 00236A C924 3500 1524 CW CEND2,R1 END OF CYL 1? 
002258 6A08 21FC 1410 SEQCM MVW HDSEC,R2 GET HEAD AND SECTOR VALUE 00236E 1806 1525 JNE ALTEN NO 
00225c pDOCc4 1411 cD R3) ,kO WAS SYNC, FLAG AND CYL THE SAME 002370 5003 1526 J STPF6 YES 
00225E 1808 1412 JNE EQ * NO, BC 002372 c924 3502 1527 END1 CW CYEND,R1 HAS THE END OF CYL 1 STG BEEN FOUND 
002260 CAE4 0004 1413 CW iE GSDHD) , R2 CMP MEAD AND SEC, IS IT OK 002376 1802 1528 JNE ALTEN * NO, BCH 
002264 1040 1414 : JE EOCV * YES, GO UPDATE CONTROLS 002378 aca! 1329 STPF6 TBTS (RU, CND) END OF TRACK 1 
00237A 2 J ALTEW 
1416 *** HEAD AND SECTOR ERROR - RESTORE PROPER HEAD AND SECTOR 00237C C760 0001 1531 ALTEN MVB (Ra 1) ,R7 * AND GET THE FLAG 
1417 * 002380 F700 1532 CBI R77 IS NEXT ASSIGN FLAG VALID 
002266 9E1B 1418 JAL LOG, R6 LOG OUT ERROR SECTOR 002382 18EF 1533 JNE ALTEM * NO, GO CHECK THE NEXT ONE 
002268 6A6D 0004 1419 MVW R2, (R3,GSDHD) SET PROPER HEAD AND SECTOR 002384 690D 23E2 1534 MVW R1,NEXTA SET ADRS OF NEXT ASSIGN 
00226C 4c5c 1420 TBTS (Rh ERR) SET ERR OR ASSIGNMENT BIT 002388 5020 1535 J ALTEW 
00226E 503C 1421 J EOCW 00238A C1EO 0005 1536 ALTEG MVB {R3 5) ,R1 GET SECTOR OF FAILING ID 
002270 QF02 1422 SEQCS MVBI 2,R7 DEFECTIVE FLAG INDICATED? 00238E E921 23E1 1537 MB pS£z+1,R1 * AND MULT BY THE ID SIZE TO FIND 
002272 C7E4 0001 1423 CB {B3 1) ,R7 * 002392 C7EO 0004 1538 MVB (R3 4) h7 GET HEAD NUMBER 
002276 180A 1424 INE EOCP * NO 002396 EF25 23E6 1539 MW LEN, 4 
002278 4OEF 0002 0001 1425 CWI 1, (R3,2) ALTERNATE CYL INDICATED? 002394 7728 1540 AW R7,R4 
00227E 1034 - 1426 JE SEOCW YES 00239C 690E 23E4 1541 AW cy$§TcG,R1 * ALTERNATE ASSIGNMENT ON TRACK 1 
002280 S88EB 21FA 0002 1427 CW CYLNM, (R3,2) CYL NUMBER THE SAME 0023A0 906B 21FA 0002 1542 CD CYLNM, (R1,2) IS THIS ASSIGNMENT CORRECT 
002286 1802 1428 JNE SEOCP NO 0023A6 1011 1543 JE ALTEW * YES, CONTINUE CHECKING 
002288 4c5Cc 1429 TBTS AR ERR) SET ERR OR ASSIGNMENT BIT 1544 *** UNABLE TO FIND ALTER SECTOR, SEARCH CYL1 BUFFER 
00228A 5025 1430 J EQCW 0023A8 4C1B 1545 TBT (R4 , BIG) LARGE FILE? 
1431 * 0023AA 1003 1546 JOFF ALT{ NO 
1432 *** SECTOR CLOBBERED-RESTORE SECTOR ID 0023AC 4724 3502 1547 MVA CYEND,R7 END OF CYL1 BUFFER (LARGE FILE) 
1433 * 0023B0 5002 1548 J ALTG 
00228C 9808 1434 SEQCP JAL LOG, R6 LOG LOUT CLOBBERED SECTOR 0023B2 4724 339A 1549 ALT1 MVA C1200+2,R7 END OF CYL1 BUFFER 
00228E 88E0O 21F8 1435 MVW HOEGO, (R3) GET VALID SYNC AND FLAG 0023B6 4124 30CA 1550 ALT4 MVA C10004+2,R1 CYL1 BUFFER 
002292 90EF8 21FA 0002 1436 MVD CYLNM, (R3,2) CYL AND HEAD AND SECTOR 0023BA 9063 21FA 1551 ALT2 CD CYLNM, (£1) ALT ASSIGNMENT CORRECT? 
002298 4c5c 1437 TBTS R4,ER SET ERR OR ASSIGNMENT BIT 0023BE 1005 1552 JE ALTEW YES 
00229A 4C5SA 1438 TBTS R4,WRT SET WRITE SECTOR ID FLAG 0023CO0 7921 0006 1553 AWI 6,81 INCREMENT BUFFER ADDRESS 
00229c 5024 1439 J SEOCV 0023C4 71E5 1554 CW R1,R7 END OF CYL1? 
1440 * 0023C6 10BB 1555 JE REASG REASSIGN ALTERNATE SECTO 
TO42 3 I tok doi dik ak ak 0023C8 SOF8 1556 J ALT2 CONTINUE CHECKING FOR ALTER SECTOR 
1443 ** LOG OUT EXCEPTIONAL SECTOR ROUTINE 1557 * 
1444 * 0023CA 7861 0006 1558 ALTEW AWI ID01-1ID00,R3 ADVANCE BUFFER ADRS AND 
1445 * BAL LOG, R6 LOG OUT SECTOR ID 0023CE 4029 21FC 0001 1559 AWL 1,HDSEC * ADV SECTOR C 
1446 * 0023D4 802B 22FE 21FD 1560 CB H603C,HDSEC+1 HAS LAST SYNC FIELD BEEN CHECKED 
Uae : B *— RETURN TO CALLER 0023DA 1898 1361 ‘ JNE ALTES * NO, BCH AND CONTINO 
1419 eR A OR I I tok icici k 0023DC 6802 0000 1563 ALTEX B *—* BRANCH TO CALLER 
00229E 6EOD 22E4 1450 LOG MVW R6,LOG1+2 SET UP RETURN 0023E0 0006 1565 IDSIZ DC A (ID01-ID00) ID BUFFER SIZE 
0022A2 882C 21FA 27DE 1451 MVW cY£NM, ERLST* ACTUAL CYL NUM 0023E2 30C8 1566 NEXTA DC A (C1000 NEXT AVAILABLE ASSIGNMENT ADRS 
0022A8 4029 27DE 0002 1452 AWI 2,ERLST INCREMENT LIST ADDRESS 0023E4 30C8 1567 CYSTG DC A (C1000 CYL 1 STORAGE OF ALTER ASSIGNMENTS 
0O22AER 802C 19BC 27DE 1453 MVB SKDC B+8,ERLST* ACTUAL HEAD 0023E6 0168 1568 BLEN DC X'O1688 TRACK SIZE 
0022B4 4029 27DE 0001 1454 AWL 1,ERLST INCREMENT LIST ADDRESS 1569 * 
0022BA 802C 21FD 27DE 1455 MVB HDSEC+1,ERLST* ACTUAL SECTOR 1570 * 
0022CO 4029 27DE 0001 1456 AWL 1,ERLST INCREMENT LIST ADDRESS 1571 * 
0022C6 4029 27DC 0001 1457 AWI 1,ERRCT INCREMENT ERROR COUNTER 1572 * 
0022CC 8BOC 27DE 1458 MVW sk3 ERLST* SYNC AND FLAG VS 73 RR a A ie He ee ee ee ae a ce ee He A he ee ae i a 2 a ic He he He a ee ee ie ee a i ee i ae ic ee i eK 
0022D0 4029 27DE 0002 1459 AWL EREST INCREMENT LIST ADDRESS 1574 * 
0022D6 932C 0002 27DE 1460 MVD (ks 2) ERLST* LIST CYL,HEAD,SECTOR 1575 * BUILD WRITE DCBtS 
0022DC 4029 27DE 0004 1461 AWI ERLST INCREMENT LISf ADDRESS 1576 * 
0022E2 6802 0000 1462 LOG1 B —%* RETURN TO CALLER 1577 * THIS SUBROUTINE SETS UP THE WRITE ID CONTROL FOR EITHER A ‘VTL! 
1463 * 1578 * OR 'DUTCHESS' ATTACHED 4962 FILE AND THEN LOADS THE WRITE 
1464 NORMAL UPDATE AND END CHECKING 1379 . SECTOR ID 'DCB'S' WITH THE PROPER CONTROL WORD. 
0022F6 c7Cc5 1466 SEQCV MVBZ R3) 287 CLEAR SYNC FIELD, ALL SEEMS WELL 1581 * 
0022E8 7B61 0006 1467 SEOCW AWT DO 1-ID00,R3 ADJUST ADRS POINTER FOR ID BUFFFR 1582 * -> BAL SETWR,R6 BUILD WRITE DCB'S 
0022EC 4029 21FC 0001 1468 AWL 1,HDSEC ADVANCE SECTOR CONTROL 1583 * 
0022F2 802B 22FE 21FD 1469 CB H603C,HDSEC+1 ARE ALL ID'S CHECKED 1584 * B *— x RETURN TO CALLER 
0022F8 18AF 1470 JNE SEOCM * NO, CONTINUE CHECKING 1585 * 
1471 * 15 B86 RH HR A A a ee I He He He Fe a ie a i 2 a Ke a he a ae ie ic ee a i a ie a ee a a ae ie he a a ie i ee ae a 2c 2 2 kc 2k 2k 
0022FA 6802 0000 1472 SEQCK B *-* RETURN TO CALLER 0023E8 6E0D 2460 1587 SETWR MVW R6 , PLRTN+2 SET UP RETURN ADDRESS 
0022FE 3c00 1473 HOO3C Dc X*3co08 CONSTANT 0023EC 4C19 1588 TBT gpd VTL) * CHECK FILE TYPE 
1474 * 0023EE 1203 1589 JON LUG1 BCH IF VTL FILE ATTACHMENT 
1475 * EJECT 0023FO 4724 8006 1590 MVWI X'8006',R7 ADJUST FOR DUTCHESS ATTACHMENT 
1476 * 0023F4 5002 1591 J PLUG3 
VT 7 RR HK ae 2 he oe ee he oe he oe ee Re 2c fi 2c ai a a i a oe ee 2 2 ei ee hc ke he ee i ke oi ic ee ake fe fe fe 2k kc fe ake feof ok 1592 x 
1478 * 0023F6 4724 8002 1593 PLUG1 MVWI X'8002'",R7 SET UP WRITE CNTL WORD FOR VIL FILE 
1479 * CHECK ALTERNATE ASSIGNMENTS O0O23FA 4224 2BA0 1594 PLUG3 MVA WRTOO,R2 SET UP SECOND DCB ADDR 
1480 * 0023FE 083C 1595 MVBI 60,R0 SET UP NUMBER OF DCBtS TO PLUG 
1481 * THIS SUBROUTINE CHECKS IF ANY ALTERNATE ASSIGNMENTS HAVE BEEN 002400 4324 2F60 1596 PLUG6 MVA FSTID ,R3 GET BUFFER ADDRESS 
1482 * MADE AND IF THEY ARE CORRECT. IF AN ALTERNATE ASSIGNMENT HAS 002404 C125 21FD 1597 MVBZ HDSEC#1,R1 CLEAR SECTOR NUM 
1483 * NOT BEEN MADE, THYS SUBROUTINE WILL DO IT AND FIND THE NEXT 002408 C1Cc0 1598 PLUG2 MVB R3). R1 CHECK FOR ERROR 
1484 * AVAILABLE ONE. IT ALSO CHECKS FOR DEFECTIVE ALTERNATES (CYL1) OO24U0A 1002 1599 JZ LUG4 NO ERROR 
1485 * AND BYPASSES THEM. 00240C 0180 1600 ABI X'80',R1 BAD SECTOR WRITTEN SKEWED? 
1486 * OO240E 1729 1601 JcY PLUGS YES 
1487 * -> BAL ALTER, R6 GO CHECK ALTER ASSIGNMENTS 002410 CF88 1602 PLUGY MVW R7 (R2) * AND GO PLUG DATA IN R7 
1488 * 002412 88A8 21FA 0006 1603 PLUG7 MVW CYENM, (R2,6 PUT IN CURRENT CYL NUMBER 
1489 * B ek RETURN TO CALLER 002418 80A8 21FC 0008 1604 MVB HDSEC, (R2,8 PUT IN CURRENT HEAD NUMBER 
1490 * 00241E 7A41 0010 1605 AWL 16,R2 ADJUST FOR CHANGE 
VU GY RK a ea ee ae ee he ee ee a 2 2 he ae ae he fe fe 9 2c 2h oe ah ik 2h he ae 2 2 ae 3c he i 2h i 2c ie oe oe i ee oe 2 Ke 2 2 kc ok oe 002422 7B61 0006 1606 AWI 1p61-1D00,R3 
002300 6E0D 23DE 1492 ALTER MVW R6,ALTEX+2 SAVE RETURN ADRS 002426 4029 21FC 0001 1607 AWL 1,HDSEC 
002304 4324 2F60 1493 MVA FSTID,R3 SET ID BUFFER ADRS FOR ERR CHECK 00242C BSED 1608 JCT pf,uG2,R0 * UNLESS ALL DCL1 
002308 C225 21FD 1494 MVBZ HDSEC+1,R2 * AND SECTOR CONTROL NUMBER 00242E 402F 2BA0 8003 1609 CWI X'8003' ,WRTOO IS SECTOR ZERO TO BE WRITTEN SKEWED? 
00230C 6A08 21FC 1495 ALTES MVW HDSEC,R2 GET HEAD AND SECTOR TO CHECK 002434 1003 1610 JE PLUG 8 YES 
002310 c1c0 1496 MVB (R3) ,k1 GET SYNC FIELD 002436 4020 2BA0O 8002 1611 MVWI X*8002', WRTOO SET NORMAL WRITE IN DCB 
002312 105B 1497 JZ ALTEW * AND BCH IF NO ERROR 00243C 4O2F 2D80 8003 1612 PLUG8 CWI X'8003',WRTIE IS SECTOR 30 TO BE WRITTEN SKEWED? 
002314 4OEF 0002 0001 1498 CWI 1 {83 62) HAS ALTER TRK BEEN ASSIGNED 002442 1003 1613 JE PLUGS YES 
00231A 1037 1499 E ALTEG * YES, GO CHECK IT OUT 002444 4020 2D80 8002 1614 MVWI X¥'8002',WRTIE SET NORMAL WRITE IN DCB 
00231C 4C1B 1500 TBT (R4, BIG) LARGE FILE? OO244UR 4O2D 2F50 8000 1615 PLUGI RBTWI xX'8000',WRT3B RESET CHAIN BIT IN LAST WRITE DCB 
00231E 1003 1501 JOFF LT41 NO 002450 4724 0168 1616 MVWI X'0168! ,R7 BYTE COUNT FOR TRACK 
002320 4724 3502 1502 MVA CYEND,R7 END OF CYL1 BUFFER (LARGE FILE) 002454 4324 2F60 1617 MVA FSTID,R3 SET UP 'TO*t ADDR 
002324 5002 1503 J ALTUY 002458 4124 2F61 1618 MVA FSTID+1,R1 'FROM' ADDR 
002326 4724 339A 1504 ALT11 MVA C12004+2,R7 END OF CYL1 BUFFER 00245C 2964 1619 MVFN (R1) , (R3) MOVE ID'S 
00232A 4124 30CA 1505 ALT44G MVA C1000+2,R1 CYL1 BUFFER 00245E 6802 0000 1620 PLRIN B —% RETURN TO CALLER 
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002462 4080 8003 1621 PLUGS MVWI X'8003', (R2) SET UP FOR WRITE ID SKEWED 00259A 4020 19BC 8000 1735 MVWI X*8000',SKDCB#8 SELECT FIXED HEAD 0 
002466 50D5 1622 J PLUG7 0025A0 8028 19BC 21FC 1736 TFO1 MVB SKDCB+8,HDSEC LOAD SELECTED HEAD 
1623 * 0025A6 6E03 1A7C 1737 BAL $SEEK,R6 SELECT HEAD 
VG DU HR RK A MH he ee oe eK ee ee 3 ee he ee 3 ee ee Re 3 ae ke oie eof fe ake ae 2k ae fe oe fie oe oe oe fe ke fe oe ke fc ake fe 2k te afc ote of ok OO25AA 1BF8 1738 DC A (SERRS) * 
1625 * Q0O25AC 4CA1 1739 TBTR get ER) INTERRUPT ERROR? 
1626 * THIS SUBROUTINE ISSUES WRITE SECTOR ID COMMAND TO WRITE ID S 0025AE 6A00 1BF8 1740 BON ERRS YES 
1627 * ON A FULL TRACK. ID'S ARE ALSO VERIFIED. 0025B2 4¢19 1741 TBT fee VTL) VIL ATTACHMENT? 
1628 * 0025B4 120A 1742 JON Xx99 YES 
1629 * BAL WRALL, R6 WRITE ID'S 0025B6 4cé64 1743 FXG1 TBTS fs XE) SET EXPECTED ERROR 
1630 * 0025B8 6E03 217C 1744 BAL RDIM,R6 READ ID IMM 
1631 * B *— RETURN 0025BC 1BF8 1745 DC A (SERRS) 
1632 * 0025BE 4CA1 1746 TBTR { 4, ER) ANY ERROR? 
1633 * 0025c0 1031 1747 JOFF FxxXi NO 
1634 PS SP SPSS SPSS SSS LSS SLPS SES SS SLL SSS SSS SSeS CSS ST SCSe SESS SSSSL SS LS eS Se Se 2 es 0025c2 “OZR 1A36 0001 1748 SWI 1,CTRO1 DECREMENT RETRY COUNTER 
002468 6E0D 24A6 1635 WRALL MVW R6,WRA+2 SET UP RETURN ADDRESS 0025C8 18F6 1749 INZ FXG1 
00246C 4724 0168 1636 WRA1 MVWI x'6168* RT SET UP BYTE COUNT FOR ONE TRACK ID'S 0025CA 4020 1998 3600 1750 FXX99 MVWI xX'3600' RSDCB+t4 READ SECTOR 57 
002470 4124 2F60 1637 MVA FSTID,R1 SAVE ID'S FOR RETRY 0025D0 4020 19A2 30B6 1751 MVA TD39,RSDCB+14 DATA ADDRESS 
002474 4324 3504 1638 MVA RTEST, * . 0025D6 4c64 1752 TBTS fe ke) * 
002478 2964 1639 MVEN R1) 483) x 0025D8 6803 1A8C 1753 BAL RD{D,R6 * 
OO247A 4C64 1640 WALL TBTS R4,X SET EXPECTED ERROR FLAG 0025DC 1BF8 1754 DC A (SERRS) * 
00247C 6E03 24C2 1641 BAL WRID, R6 WRITE SECTOR ID'S 0025DE 4020 1998 3800 1755 MVWI xX*'3800', RSDCBtY READ SECTOR 58 
002480 1BF8 1642 DC A (SERRS) 0025E4 4020 19A2 30BC 1756 MVA TID3A,RSDCB+14 DATA ADDRESS 
002482 4CA1 1643 TBTR ces ER) ANY ERROR OO25FA 4C64 1757 TBTS gee ke) * 
002484 1006 1644 JOFF RA? NO 0025EC 6E03 1A8C 1758 BAL RDID,R6 * 
002486 402E 1A38 0001 1645 SWI 1,CTRO2 DECREMENT RETRY COUNTER 0025F0 1BF8 1759 DC A (SERRS) x 
0OO248C 18F6 1646 JNZ ALL RETRY 0025F2 4020 1998 3A00 1760 MVWI X*3A00',RSDCBt4 READ SECTOR 59 
1647 *** ALL WRITE RETRIES HAVE FAILED 0025F8 4020 19A2 30C2 1761 MVA TD3B,RSDCB+14 DATA ADDRESS 
0O0248E 6802 26EE 1648 B STOP3 ALL RETRIES FAILED OO25FE 4Cc64 1762 TBTS gah ke) rs 
002492 4cC64 1649 WRA2 TBTS (Ru XE) EXPECTED ERROR 002600 6E£03 1A8C 1763 BAL RDID,R6 * 
002494 6E03 217C 1650 BAL RDIM, R6 READ VERIFY SECTOR ID'S 002604 1BF8 1764 DC A (SERRS) * 
002498 1BF8 1651 DC A (SERRS) ERROR 002606 6E03 2192 1765 BAL SDDFF,R DETERMINE IF FILE IS WRITTEN SDD 
OO249A 4CA1 1652 TBTR R4,ER) ANY ERROR? 00260A 4020 1A28 0000 1766 MVWI 0, LGSEC INIT LOG SECTOR TO 0 
00249C 1205 1653 JON RAG YES 002610 4020 1A36 0010 1767 MVWI xX!'0010',CTRO1 INIT RETRY CTR 
00249E 4020 1A38 0010 1654 MVWI xX'0010',CTRO2 INIT RETRY COUNTER 002616 6E03 203A 1768 BAL SDD2,R6 DETERMINE AND LOG 
OO24A4 6802 0000 1655 WRA B *—* RETURN TO CALLER 00261A 6E03 21FE 1769 BAL SDDGS , R6 CONVERT SDD TO GSD IF NESSESARY 
OO24A8 4724 0168 1656 WRAY MVWI X'0168',R7 SFT UP BYTE COUNT FOR ONE TRACK ID'S 00261E 6E03 2240 1770 BAL SEQCL,R6 VALIDATE SECTORS 
OO24AC 4324 2F60 1657 MVA FSTID,R3 RESTORE ID'S FOR RETRY 002622 5009 1771 J Xx12 LOOP 
0024BO0 4124 3504 1658 MVA RTEST,R1 x 002624 4020 1A36 0010 1772 FXX1 MVWI X*0010',CTRO1 INIT RETRY CTR 
OO24B4 2964 1659 MVFN {Bek §8?) * 00262A 6£E£03 1FEO 1773 BAL SDD7,R6 CHECK FOR DEFECTIVE FLAG 
O024B6 4O2E 1A38 0001 1660 SWI crkd2 DECREMENT RETRY COUNTER 00262E 6E03 21FE 1774 BAL SDDGS, R6 CONVERT SDD TO GSD IF NESSESARY 
0024BC 18DE 1661 JNZ WALL RETRY 002632 6E03 2240 1775 BAL SEOCL,R6 VALIDATE SECTORS 
OO24YBE 6802 26EE 1662 B STOP3 ALL RETRIES FAILED 002636 4CIE 1776 FXX12 TBT (Rs Shp) SDD FORMAT? 
1663 * 002638 1202 1777 JON | YES 
0024c2 4020 1BB4 2BA0 1664 $WRID MVA WRTOO ,IODCB STARTING DCB ADDRESS 00263A 4cC9C 1778 TBTR R4, ERR) ANY ERROR SECTORS? 
0024C8 6802 1AB2 1665 B XIO WRITE 00263C 1002 1779 JOFF x46 NO 
1666 * 00263E 6E03 21D8 1780 FX0O1 BAL WRIT, RE GOTO CONT/ALT/WRT ROUTINE 
1667 * 002642 402F 19BC 8700 1781 FX46 CWI X'8760', SKDCB+8 FIXED HEAD 8? 
1668 * THIS SUBROUTINE WRITES SECTOR ID'S FOR CYLINDER ONE. 002648 1007 1782 JE TFRIN YES RETURN TO CALLER 
1669 * OO264A 4029 19BC 0100 1783 AWI X'0100',SKDCBt8 INCREMENT SECTOR NUMBER 
1670 * 002650 4020 19B6 0000 1784 MVWI O,SKDCB+42 SELECT HEAD 
0024cC 4C18 1671 TCOO fTBT {R4 FXD) FIXED HEADS? 002656 SOA4 1785 J TFO1 
OO24UCE 1001 1672 JOFF cc6 NO 002658 6802 0000 1786 TFRIN B tk RETURN TO CALLER 
0024D0 9E56 1673 JAL TFOO,R6 CHECK AND WRITE FIXED HEADS 1787 * 
0024D2 4020 21FA 0001 1674 TcCCO MVWI 1,cYiNM SET CYLINDER ONE 1789 * 
0024D8 4020 19B6 0001 1675 MVWI 1,SKDCB+t2 SEEK TO CYL ONE 1790 * 
OO24UDE 4020 19BC 0000 1676 MVWI 0,SKDCBt8 x V7 RR RK RK ee he He Re He Hee He He 3 a ee he 2 he eh he af 3c 2 he a ae ae ae he 2 ie ik ac 2h 2 ae 2h a ice eae tak kek ook i ok 
OO24E4 8028 19BC 21FC 1677 MVB SKDCB+8,, HDSEC LOAD SELECTED HEAD 1792 * LOG OUT DEFECTIVE SECTORS 
OO24EA 6E03 1A84 1678 BAL SRECL,RE RECALIBRATE 1793 * 
OO24UEE 1BF8 1679 DC A (SERRS) ERROR- RETRY RECALIBRATE 1794 * 
OO24FO 4CA1 1680 TBTR {ER ER) INTERRUPT ERROR? : 1795 aR a RI I IORI BOR IR I I IO OR I I Ft ok ie teak ake ae ak 
OO24F2 6A00 1BF8 1681 BON ERRS$ YES 00265C 402F 27DcC 0000 1796 TS99U CWI 0,ERRCT ANY BAD SECTORS? 
OO24F6 4724 0168 1682 MVWI 360,R7 MOVE CYL ONE,HD 0 ID's TO 002662 180F 1797 JNE T§S1 YES 
OO24FA 4324 30C8 1683 MVA  €1060,R3 * NORMAL TD SUFFER 002664 4324 366C 1798 MVA ERSEC,R3 FIRST LOG OUT ADDRESS é 
OO24UFE 4524 2F60 1684 MVA FSTID,R5 * 002668 6C08 27DC 1799 MVW ERRCT, RY ERROR COUNT 
002502 2BA4 1685 MVEN (23) (R5) * 00266C 4020 27C8 DS5D6 1800 MVWI X'D5D6',HEAD3 LOAD CHAR 'NO' IN LOG OUT AREA 
002504 6E03 1A7C 1686 TCO1 BAL SEEK, R6 SEEK TO CYL ONE OR SELECT HEAD 002672 4020 27CA 4040 1801 MVWI X'4O40' HEAD3+2 * 
002508 1BF8 1687 DC A (SERR$) 002678 4724 27C6 1802 MVA HEAD2,R7 PARM ADDRESS 
00250A 4CA1 1688 TBTR ged ER) INTERRUPT ERROR? 00267cC 6000 1803 SVC OUT PRINT HEADING 
00250C 6A00 1BF8 1689 BON ERRS YES 00267E 6802 1C48 1804 B $CONX EXIT 
002510 6£E03 23E8 1690 BAL SETWR,R6 SET UP DCBt*S FOR WRITING ID'S 002682 4U4CIE 1805 TSS1 TBI Re SDD) SDD FORMAT 
002514 6E03 2468 1691 BAL WRALL,R6 WRITE ID'S 002684 1003 1806 JOFF ss§ NO 
002518 4C1B 1692 TBT (RA BIG) 002686 4020 27C8 E2C4 1807 MVWI X*E2C4! HEAD3 LOAD CHAR 'SD* IN LOG OUT AREA 
00251A 1216 1693 JON co2 00268C 4020 2754 366C 1808 TSS9 MVA  ERSEC,BLK+2 ADDRESS OF 'BLK' PARAMETER LIST 
00251C 4O2F 19BC 0100 1694 CWI X'0100" ,SKDCB+8 HEAD ONE? 002692 4324 366C 1809 MVA ERSEC, FIRST LOG OUT ADDRESS 
002522 6800 265C 1695 BE TS99U LOG OUT ERROR SECTORS AND EXIT 002696 6C08 27DC 1810 MVW ERRCT,R4 ERROR COUNT 
002526 4020 19B6 0000 1696 TCO3 MVWI 0 ,SKDCB+2 SELECT HEAD ONE 00269A 4724 27cC6 1811 MVA HEAD2,R7 PARM ADDRESS 
00252C 4020 19BC 0100 1697 MVWI xX'0100',SKDCBt8 x 00269E 6000 1812 Svc OUT PRINT HEADING : 
002532 8028 19BC 21FC 1698 MVB SKDCB+8,HDSEC * 0026A0 4724 275A 1813 MVA HEAD,R7 PARM ADDRESS 
002538 4724 0168 1699 MVWI 360,R7 | MOVE CYL ONE,HD 1 ID'S TO 0026A4 6000 1814 SVC ouT PRINT HEADING 
00253C 4324 3230 1700 MVA © €1160,R3 * NORMAL ID BUFFER 0026A6 6808 27DC 1845 MVW  ERRCT,RO NUMBER OF ERROR SECTORS 
002540 4524 2F60 1701 NVA FSTID,R5 * OO26AA 4020 2756 278F 1816 TT69R MVA FILL+1,BLK+4 ADDRESS OF OUTPUT BUFFER 
002544 2BA4 1702 MVFN (23) « (RS) * 0026B0 0905 1817 MVBI 5,R1 NUMBER OF WORDS TO BE CONVERTED 
002546 SODE 1703 J co 0026B2 4724 2752 1818 TT69S MVA BLK,R7 PARM ADDRESS 
002548 402F 19BC 0000 1704 TCO2 CWI 0,SKDCBt+8 HEAD ZERO? 0026B6 601A 1819 SVC HTOE CONVERT HEX TO EBC 
00254E 10EB 1705 JE TCO 3 YES 0026B8 4029 2754 0002 1820 AWI 2,BLK+2 INCREMENT FROM ADDRESS 
002550 402F 19BC 0100 1706 CWI X'0100' ,SKDCBt8 HEAD ONE? 00O26BE 4029 2756 0009 1821 AWI 9,BLK+4 INCREMENT TO ADDRESS 
002556 1002 1707 JE TCO 0026C4 BOFE 1822 Jct 69S,R1 Loo 
002558 6802 265C 1708 B TS99U LOG OUT ERROR SECTORS AND EXIT 0026C6 4724 278C 1823 MVA DATAA,R7 PARM ADDRESS 
00255c 4020 19B6 0000 1709 TCO4 MVWI 0 ,SKDCB+2 SELECT HEAD 2 0026CA 6000 1824 svc OUT PRINT ERROR SECTORS 
002562 4020 19BC 0200 1710 MVWI X'0200',SKDCB+t8 * 0026CC B8EE 1825 JCT TT69R,RO LOOP 
002568 8028 19BC 21FC 1711 MVB SKDCB+8 ,HDSEC * 0026CE 4324 366C 1826 MVA ERSEC, R3 LOAD ADDRESS OF ERRORS INTO R3 
00256E 4724 0168 1712 MVWI 360,R7 MOVE CYL ONE,HD 2 ID'S TO 0026D2 4724 27BE 1827 MVA $OUT, RI LOAD ADDRESS OF CONTROL BLOCK 
002572 4324 3398 1713 MVA ©1260,83 * NORMAL ID BUFFER 0026D6 6000 1828 SVC OUT ISSUE SVC 
002576 4524 2F60 1714 NVA FSTID,R5 * 0026D8 6802 1C48 1829 B $CONX EXIT 
00257A 2BA4 1715 MVFEN AR3) « (RS) * 1830 * 
00257cC 50C3 1716 cot 0026DC 4724 0028 1831 STOP2 MVWI X*0028',R7 CYL 1 COMPLETELY REASSIGNED 
1717 * 0026E0 4324 26F8 1832 MVA FULL 
1718 Me Fk Ik te ek ak ie ek a ik kt eke kkk kkk ak kk kk I rR a tok ak a toi ak tok ke ge ok tote 2k OO26E4 4524 1C60 1833 STOPY MVA BEGIN+14,R5 
1719 * 0026E8 2BA4 1834 MVFN R3) , (R5) 
1720 * 0O0O26EA 6802 1BF8 1835 B ER 
1721 * THIS SUBROUTINE WRITES SECTOR ID*S FOR FIXED HEADS. OO26EE 4724 0028 1836 STOP3 MVWI xX'0028!,R7 ALL WRITE RETRIES FAILED 
1722 * 0026F2 4324 2720 1837 MVA  RETRY,R3 
1723 : BAL TFOO,R6 WRTIE FIXED HEAD SECTOR ID'S 0O026F6 SOF6 1838 J STOP 
x 
1725 * B *—% RETURN TO CALLER 0026F8 E4D5C1C2D3C540E3D 1840 FULL DC C*'*UNABLE TO ASSIGN ALTER SCT, CYL1 IS FULL! 
1726 * 002720 E6D9IC9E3C54OE2C3E 1841 RETRY DC C'WRITE SCT ID ERROR, ALL REfRIES FAILED '* 
1727 PS SPSS ESS STE SSL LS SFT SSS TSE SSS SSS ST SSL SSS SS SSL LSS SS SSS LS SSS SSS SCS SSS Ss 1842 * 
00257E 6E0D 265A 1728 TFOO MVW R6, TFRIN+2 SET UP RETURN ADDRESS 002748 CF25 1812 1843 EXIT1 MVWZ DEVTAB,R7 
002582 4020 21FA 0098 1729 MVWI X'6098*, CYLNM SET CYLINDER FOR FIXED HEADS 00274C CF25 1816 1844 MVWZ ASSIGN,R7 
002588 6E03 1A84 1730 BAL $RECL,R6 RECALIBRATE 002750 6007 1845 SVC. TERM 
00258C 1BF8 1731 DC A (SERRS) ERROR- RETRY RECALIBRATE 1846 * 
00258E 4CA1 1732 TBTR 4, ER) INTERRUPT ERROR? 1847 * 
002590 6A00 1BF8 1733 BON ERR$ YES 1848 * 
002594 4020 19B6 0098 1734 MVWI xX*'0098*,SKDCBt2 SEEK TO CYL NINTY EIGHT 002752 0002 1849 BLK Dc X*00028 
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) LENGTH (2) 


SECT (U78FO ) LENGTH (2) 
CT (U78FO ) LENGTH (2) 
1é97 1688 
CSECT(U78FO ) LENGTH (2) 
CSECT(U78FO ) LENGTH(2) 
CSECT(U78FO ) LENGTH(19) 
CSECT(U78FO ) LENGTH(45) 
CSECT(U78FO ) LENGTH(2) 
CSECT(U78FO  ) LENGTH(2) 
CSECT(U78FO ) LENGTH(2) 
CSECT(U78FO ) LENGTH(2) 
CSECT(U78FO ) LENGTH (6) 
CSECT(U78FO ) LENGTH(6) 
CSECT(U78FO ) LENGTH (6) 
CSECT(U78FO ) LENGTH(6) 
CSECT(U78FO ) LENGTH(6) 
CSECT(U78FO ) LENGTH(6) 
T(U78FO 11h eENGTH CS) 
T (G78 FO ) LENGTH (6) 
1925 2469 
CT(U78FO ) LENGTH (6) 
CSECT(U78FO ) LENGTH(6) 
CSECT(U78FO ) LENGTH(6) 
CSECT(U78FO ) LENGTH (6) 
CSECT(U78FO ) LENGTH(6) 
CSECT(U78FO ) LENGTH(6) 
CSECT(U78FO ) LENGTH(6) 
CSECT(U78FO ) LENGTH (6) 
CSECT(U78FO ) LENGTH(6) 
CSECT(U78FO ) LENGTH(6) 
CSECT(U78FO ) LENGTH (6) 
CSECT(U78FO ) LENGTH (6) 
CSECT(U78FO ) LENGTH(6) 
CSECT(U78FO ) LENGTH(6) 
CSECT(U78FO ) LENGTH(6) 
CSECT(U78FO ) LENGTH(6) 
CSECT(U78FO ) LENGTH(6) 
CSECT(U78FO ) LENGTH(6) 
CSECT(U78FO ) LENGTH(6) 
CSECT(U78FO ) LENGTH(6) 
CSECT(U78FO ) LENGTH(6) 
CSECT(U78FO ) LENGTH(6) 
CSECT(U78FO ) LENGTH (6) 
CSECT(U78FO ) LENGTH(6) 
CSECT(U78FO ) LENGTH(6) 
CSECT(U78FO ) LENGTH(6) 
CSECT(U78FO ) LENGTH (6) 
CSECT(U78FO ) LENGTH(6) 
CSECT(U78FO ) LENGTH(6) 
CSECT(U78FO ) LENGTH (6) 
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U78FO --- DISK INITIALIZATION PROGRAM FOR THE 4962 PN=1635488 EC=755404 PAGE 17 U78FO --- DISK INITIALIZATION PROGRAM FOR THE 4962 PN=1635488 EC=755404 PAGE 17A 
CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
3034 ID21 >ADBRESS, HEX LOCATION (00003026) IN CSECT(U78FO ) LENGTH(6) 1620 PLRTN AODRESS. HEX LOCATION (0000245E) IN CSECT(U78FO ) LENGTH(4) 
3035 ID22 ADDRESS, HEX LOCATION (0000302C) IN CSECT(U78FO ) LENGTH(6) 1593 PLUG1 ,RRBRESS. HEX LOCATION (000023F6) IN CSECT(U78FO ) LENGTH(4) 
3036 ID23 jADDRESS. HEX LOCATION (00003032) IN CSECT(U78FO ) LENGTH (6) 1598 PLUG2 ,RBDRESS. HEX LOCATION(00002408) IN CSECT(U78FO ) LENGTH(2) 
3038 Ip24 jADDRESS. HEX LOCATION (00003038) IN CSECT(U78FO ) LENGTH(6) 1594 PLUG3 jABDRESS. HEX LOCATION(000023FA) IN CSECT(U78FO ) LENGTH(4) 
3039 ID25 > ADDRESS. HEX LOCATION (0000303E) IN CSECT(U78FO  ) LENGTH(6) 1602 PLUG4 ADDRESS. HEX LOCATION (00002410) IN CSECT(U78FO ) LENGTH(2) 
3040 ID26 o ADDRESS. HEX LOCATION (00003044) IN CSECT(U78FO ) LENGTH (6) 1621 PLUGS jADDRESS. HEX LOCATION (00002462) IN CSECT(U78FO ) LENGTH(4) 
3041 ID27 oADDRESS. HEX LOCATION (0000304A) IN CSECT(U78F0 ) LENGTH(6) 1603 PLUG? ADDRESS. HEX LOCATION(00002412) IN CSECT(U78FO ) LENGTH(6) 
3042 ID28 a RDDRESS. HEX LOCATION (00003050) IN CSECT(U78FO ) LENGTH(6) 1612 PLUGS ADDRESS. HEX LOCATION (0000243C) IN CSECT(U78FO ) LENGTH(6) 
3044 ID29 jARDRESS, HEX LOCATION (00003056) IN CSECT(U78FO ) LENGTH (6) 1615 PLUG9 jADDRESS. HEX LOCATION(0000244A) IN CSECT(U78FO ) LENGTH(6) 
3064 ID3A ABDRESS. HEX LOCATION (000030BC) IN CSECT(U78FO ) LENGTH(6) 218 PREP ABSOLUTE. HEX VALUE (0000000C) 
3065 ID3B ADDRESS. HEX LOCATION (000030C2) IN CSECT(U78FO ) LENGTH(6) 1512 REASG ADDRESS. HEX LOCATION (0000233E) IN CSECT(U78FO ) LENGTH(2) 
1032. 1300 1305 1310 1761 2647 29 1510 1555 
3052 ID30 a ADDRESS. HEX LOCATION (00003080) IN CSECT(U78FO ) LENGTH(6) 1841 RETRY ADDRESS. HEX LOCATION (00002720) IN CSECT(U78FO ) LENGTH(40) 
3053 ID31 oADDRESS. HEX LOCATION (00003086) IN CSECT(U78FO ) LENGTH(6) 225 RICB ABSOLUTE. HEX VALUE (000000 13) 
3054 ID32 jADDRESS. HEX LOCATION (0000308C) IN CSECT(U78FO ) LENGTH (6) 215 RID ABSOLUTE. HEX VALUE (00000009) 
3056 ID33 ADDRESS. HEX LOCATION (00003092) IN CSECT(U78FO ) LENGTH(6) 423 RK DCB ADDRESS. HEX LOCATION (0090 1A 14) IN CSECT(U78FO ) LENGTH(2) 
2375 2919 540 1186 1200 1220 1245 1247 
3057 ID34 ADDRESS. HEX LOCATION(00003098) IN CSECT(U78FO ) LENGTH(6) 333 RSDCB ADDRESS. HEX LOCATION (00001994) IN CSECT(U78FO ) LENGTH (2) 
2384 2928 534 1021 1022 1026 1027 1031 1032 1185 1199 
3058 ID35 ADDRESS. HEX LOCATION(0000309E) IN CSECT(U78FO ) LENGTH(6) 1217. 1226 1750 1751 1755 1756 1760 1761 
2393 2937 3291 RTEST ADDRESS. HEX LOCATION (00003504) IN CSECT(U78FO ) LENGTH (2) 
3059 ID36 ADDRESS. HEX LOCATION (00003044) IN CSECT(U78FO ) LENGTH(6) 1638 1658 
2402 2946 496 RTTO1 ADDRESS. HEX LOCATION (00001468) IN CSECT(U78FO ) LENGTH(4) 
3060 ID37 ADDRESS. HEX LOCATION(000030AA) IN CSECT(U78FO ) LENGTH(6) 488 
2411 2955 0 RO REGISTER. HEX VALUE (90000000) 
3062 ID38 ADDRESS. HEX LOCATION(000030B0) IN CSECT(U78FO ) LENGTH (6) 489 490 491 492 496 497 498 499 1366 
2420 2964 1383. 1406 1411 1595 1608 1815 1825 
3063 ID39 ADDRESS. HEX LOCATION (000030B6) IN CSECT(U78FO ) LENGTH(6) 0 R1 REGISTER. HEX VALUE (00000001) 
1022. 1290 1751 2429 2973 77 78 79 0 84 87 88 91 891 
140 IN ABSOLUTE. HEX VALUE (00000023) 894 897 900 961 962 1152 1165 1166 1167 
622 634 753 1168 1170 1290 1291 1293 1285 1296 1298 1300 
59 INAREA ADDRESS. HEX LOCATION (00001830) IN CSECT(U78FO ) LENGTH(2) 1301 1303 1305 1306 1307 1308 1310 1311 1312 
52 56 1368 1369 1370 1371 1373 1375 1376 1377 += 1378 
813 INTBL ADDRESS. HEX LOCATION(00001BBC) IN CSECT(U78FO ) LENGTH(2) 1496 1505 1506 1508 1509 1517 1518 1519 1520 
848 1521 1524 1527 1531 1534 1536 1537 1540 1541 
710 INTER ADDRESS. HEX LOCATION(00001B24) IN CSECT(U78FO ) LENGTH(2) 1542 1550 1551 1553 1554 1597 1598 1600 1618 
815 1619 1637 1639 1658 1659 1817 1822 
719 INTES ADDRESS. HEX LOCATEON(00001B3C) IN CSECT(U78FO ) LENGTH(2) REGISTER. HEX VALUE (00000002) 
714 79 85 87 896 897 1082 1083 1086 1088 
723 INTET ADDRESS. HEX LOCATION(00001B44) IN CSECT(U78FO ) LENGTH (2) 1089 1132 1133 1136 1138 1139 1153 1159 1165 
720 1169 1170 1181 1185 1186 1187 1188 1189 1190 
750 INTOK ADDRESS. HEX LOCATION(00001B48) IN CSECT(U78FO ) LENGTH (2) 1193. 1195 1196 1197 1208 1213 1214 1215 1216 
814 1217. 1220 1226 1231 1245 1253 1263 1265 1268 
772 INTRX ADDRESS. HEX LOCATION(00001B78) IN CSECT(U78FO ) LENGTH(2) 1380 1381 1404 1410 1413 1419 #1494 1495 1594 
767 +770 1602. 1602 1602 1603 1604 1605 1621 
753 INTR1 ADDRESS. HEX LOCATION (00001B50) IN CSECT(U78FO ) LENGTH (2) REGISTER, HEX VALUE (00000003) 
718 722 537. «541 #544 600 610° 613 £4614 # «4.9617 619 
758 INTR2 ADDRESS. HEX LOCATION(00001B5E) IN CSECT(U78FO ) LENGTH¢1) 675 676 $711 #29717 + &2«°1721 +751 #29756 #+769 799 
755 84h 846 847 855 889 890 894 906 1054 
766 INTR3 ADDRESS. HEX LOCATION(00001B6C) IN CSECT(U78FO ) LENGTH(2) 1056 1079 1081 1113 1115 1129 1131 #1274 1275 
7163 1367 1368 1375 1378 1379 1379 1381 1382 1405 
804 IOBLK ADDRESS. HEX LOCATION(00001BB0) IN CSECT(U78FO ) LENGTH(2) 1411 1413 1419 14623 1425 1427 1435 1435 1436 
623 853 98 1458 460 1466 1467 1493 1496 1498 1513 1518 
806 ITODCB ADDRESS. HEX LOCATION (00001BB4) IN CSECT(U78FO ) LENGTH(2) 1536 1538 1558 1596 1598 1606 1617 1619 1638 
528 531 #534 540 605 852 1271 6 1639 1657 1659 1683 1685 1700 1702 1713 1715 
807 TOMOD ADDRESS. HEX LOCATION(00001BB6) IN CSECT(U78FO ) LENGTH(2) 1798 1809 1826 1832 1834 1837 
600 606 98 9 REGISTER. HEX VALUE (00000004) 
435 LGSEC ADDRESS. HEX LOCATION(00001A28) IN CSECT(U78FO ) LENGTH(2) 86 92 603 604 607 4621 #622 624 #625 
485 487 490 497 4994 1037 1167 ©1210 1 628 634 640 $712 #42~9713 «#715 #719 «4723 ~=«752 
1260 1267 1766 753. 754 #764 ##+#$.+765 %766 768 ##=$§4771 «21781 #783 
920 LINE1 ADDRESS. HEX LOCATION (00001C8A) IN CSECT(U78FO ) LENGTH(40) 785 788 790 966 978 979 980 9814 982 
891 983 984 985 1005 1009 1011 1012 1014 1017 
1450 LOG ADDRESS. HEX LOCATION(0000229E) IN CSECT(U78FO ) LENGTH(4) 1023. 1028 1033 1047 1051 1058 1060 1068 1076 
1418 1434 1091 1093 1095 1098 1110 1117 1119 1126 1141 
1462 LOG1 ADDRESS. HEX LOCATION(000022E2) IN CSECT(U78FO ) LENGTH(4) 1154 1184 1191 1201 1204 1221 1224 1227 1235 
1450 1237. 1239 1248 1251 1254 1289 1314 1329 1363 
160 LSTIO ADDRESS. HEX LOCATION (00001922) IN CSECT(U78FO ) LENGTH(2) 1365 1420 1429 1437 1438 1500 1512 1515 1522 
609 85 1529 1545 1588 1640 1643 1649 1652 1671 1680 
137 MI ABSOLUTE. HEX VALUE (00000020) 1688 1692 1732 1739 1741 1743 #1746 #1752 1757 
768 1762. 1776 1778 1799 14805 1810 
61 MSG ADDRESS. HEX LOCATION (00001834) IN CSECT(U78FO ) LENGTH(38) REGISTER. HEX VALUE (00000005) 
55 535 537 542 544 611 #424613 4615 617 #633 
87 MSGWTR1 ADDRESS. HEX LOCATION (000018F0) IN CSECT(U78FO ) LENGTH(2) 638 760 761 762 793 794 796 845 846 
92 888 901 1055 1056 1080 1081 1114 41115 1130 
894 MVBUF ADDRESS. HEX LOCATION(00001C16) IN CSECT(U78FO ) LENGTH(2) 1131 1273 275 1684 1685 1701 1702 1714 1715 
1566 NEXTA ADDRESS. HEX LOCATION (000023E2) IN CSECT(U78FO ) LENGTH(2) REGISTER, HEX VALUE (00000006) 
1086 1136 1517 1 484 609 629 641 #421677 782 787 #+2+1789 #42795 
149 NG ABSOLUTE. HEX VALUE (0000002C) 798 800 850 856 858 893 898 899 967 
7171 1003 1007 1015 1024 1029 1034 1036 1039 1040 
144 NI ABSOLUTE. HEX VALUE (00000027) 1041 1044 1045 1046 1062 1066 1097 1121 1150 
628 1151 1171 #1176 #1180 1198 1202 1222 1228 1249 
1231 ONSKS ADDRESS. HEX LOCATION (000020F0) IN CSECT(U78FO LENGTH (4) 1315 1325 1328 1331 1332 1384 1401 1418 1434 
1225 1450 1492 1587 1635 1641 1650 1673 1678 1686 
102 OPTN1 ADDRESS. HEX LOCATION (00001916) IN CSECT(U78FO LENGTH (2) 1690 1691 1728 1730 1737 1744 1753 #1758 1763 
712-752 1765 1768 1769 1770 1773. 1774 1775 = 1780 
125 OPTN3 ADDRESS. HEX LOCATION(0000191A) IN CSECT(U78FO0 LENGTH (2) REGISTER. HEX VALUE (00000007) 
799 847 82 89 95 199 536 543 612 616 623 
206 OUT ABSOLUTE. HEX VALUE (00000000) 716 757 4843 £4848 853 886 892 895 907 
83 90 96 1803 1812 1814 1824 1828 910 954 956 986 1053 1078 1083 1084 1112 
207 OUTIN ABSOLUTE. HEX VALUE (00000001) 1128 1133 1134 1272 1422 1423 1466 1502 1504 
955 1509 1531 1532 1538 1539 1540 1547 1549 1554 
436 PHYSC ADDRESS. HEX LOCATION (00001A2A) IN CSECT (U78FO LENGTH (2) 1590 1593 1602 1616 1636 1656 1682 1699 1712 
492 494 499 11 1200 1802 181% 1813 1818 1823 1827 1831 1836 1843 
40 PID ADDRESS. HEX LOCATION (00001800) IN CSECT(U78FO0 LENGTH (4) 1844 
81 902 ADDRESS. HEX LOCATION (00001924) IN CSECT(U78FO_ ) 
934 PIDMSG10 ABSOLUTE. HEX VALUE (0000F1FO) 340 352 430 535 542 
902 ABSOLUTE. HEX VALUE (0000001E) 
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U78FO --- DISK INITIALIZATION PROGRAM FOR THE 4962 PN=1635488 EC=755404 
CROSS-REFERENCE LISTING 
DECLARED NAME ATTRIBUTES AND REFERENCES 
983. 1058 1093 1117 1154 1191 1289 1314 1363 
1345 SDDC¥ (ABSOLUTE: HEX VALUE (00000002) 
1289 SDDFF (ADDRESS, HEX LOCATON (00002192) IN CSECT(U78FO ) LENGTH(2) 
1344 SDDFL ABSOLUTE. HEX VALUE (00000005) 
1363 SDDGS ADDRESS. HEX LOCATION (000021FE) IN CSECT(U78FO ) LENGTH(2) 
1043 SDD1 IADDRESS. HEX LOCATION (00001896) IN CSECT(U78FO ) LENGTH(6} 
1165 SDD10 ADDRESS. HEX LOCATION (00002018) IN CSECT(U78FO ) LENGTH(2) 
1110 SDD11 ADDRESS. HEX LOCATION (00001F7A) IN CSECT(U78FO ) LENGTH (2) 
1047 SDD12 ;ADBRESS. HEX LOCATION (00001EA8) IN CSECT(U78FO ) LENGTH (2) 
1233 SDD13 {ABDRESS. HEX LOCATION (0000206) IN CSECT(U76FO ) LENGTH(4) 
1158 SDD15 ADDRESS. HEX LOCATION(OOOO1FFC) IN CSECT(U78FO ) LENGTH (6) 
1219 SDD 16 ADDRESS. HEX LOCATION (000020CC) IN CSECT(U78FO ) LENGTH (6) 
1195 SDD17 ADDRESS. HEX LOCATION (0000206) IN CSECT(U78FO ) LENGTH(4) 
1180 SDD2 {ADBRESS. HEX LOCATION (0000203A) IN CSECT(U78FO ) LENGTH (4) 
1176 SDD22 ADDRESS. HEX LOCATION (00002034) IN CSECT(U78FO  ) LENGTH(4) 
1071 SDD3 ADDRESS. HEX LOCATION (QOOO1EF4) IN CSECT(U78F0 ) LENGTH (6) 
1076 SDD4 {ADBRESS. HEX LOCATION (00001F06) IN CSECT(U78FO ) LENGTH (2) 
1093 SDD44 ADDRESS, FHEX LOCATION(00001F38) IN CSECT(U78FO ) LENGTH (2) 
1098 SDD46 ADDRESS. HEX LOCATION (00001F44) IN CSECT(U78FO ) LENGTH(2) 
1051 SDD5 ADDRESS. HEX LOCATION (00004EB4) IN CSECT(U78FO ) LENGTH(2) 
1058 SDD55 ADDRESS. HEX LOCATION(OO001EC8) IN CSECT(U78FO ) LENGTH(2) 
1063 SDD56 ADDRESS, HEX LOCATION (OOOO1ED4) IN CSECT(U78FO ) LENGTH (6) 
1066 SDD6 ADDRESS, HEX LOCATION (OOOO1EE6) IN CSECT(U78FO ) LENGTH(4) 
1150 SDD7 jADDRESS. HEX LOCATION(00001PEO) IN CSECT(U78F0 ) LENGTH(4) 
1126 SDD77 jADDRESS. HEX LOCATION(QOOO1FAE) IN CSECT(U78FO ) LENGTH (2) 
1159 SDD8 ADDRESS, HEX LOCATION (00002002) IN CSECT(U78FO ) LENGTH(4) 
1122 SDD86 jADDRESS. HEX LOCATION (00001F9A) IN CSECT(U78FO ) LENGTH (6) 
1117 SDD88 ADDRESS. HEX LOCATION (00001F8E) IN CSECT(U78FO ) LENGTH (2) 
1172 SDD9 jADBRESS; HEX LOCATION(0000202E) IN CSECT(U78FO ) LENGTH (4) 
1021 SDD99 jADBRESS. HEX LOCATION (00001E3C) IN CSECT(U78FO ) LENGTH(6) 
1103 SD1 jABDRESS. HEX LOCATION(00001F56) IN CSECT(U78FO ) LENGTH(6) 
1107 SD2 ADDRESS. HEX LOCATION(00001F6C) IN CSECT(U78FO ) LENGTH(6) 
1182 SD3 ADDRESS. HEX LOCATION (00002042) IN CSECT(U78FO ) LENGTH(6) 
1185 SD4 ,ABBRESS. HEX LOCATION(0000204C) IN CSECT(U78FO ) LENGTH (4) 
1368 SEQCB ADDRESS. HEX LOCATION (0000220A) IN CSECT(U78FO ) LENGTH(4) 
1375 SEQCD jADBRESS. HEX LOCATION (00002220) IN CSECT(U78FO ) LENGTH(4) 
1377 SEQCE ADDRESS. HEX LOCATION (00002226) IN CSECT(U78FO ) LENGTH (2) 
1384 SEQCI {ABDRESS. HEX LOCATION (0000223E) IN CSECT(U78FO ) LENGTH (2) 
1401 SEQCL ADDRESS. HEX LOCATION (00002240) IN CSECT(U78FO ) LENGTH(4) 
1041 1046 1770 17 
1410 SEQCM ADDRESS. HEX LOCATION (00002258) IN CSECT(U78FO ) LENGTH(4) 
1434 SEQCP ADDRESS. HEX LOCATION (0000228C) IN CSECT(U78FO ) LENGTH(2) 
1422 SEQCS ADDRESS. HEX LOCATION (00002270) IN CSECT(U78FO ) LENGTH (2) 
1466 SEQCV ADDRESS. HEX LOCATION (0000226) IN CSECT(U78FO ) LENGTH (2) 
1467 SEQCW: ADDRESS, HEX LOCATION (000022E8) IN CSECT(U78FO ) LENGTH(4) 
1472 SEQCX ADDRESS. HEX LOCATION (000022FA) IN CSECT(U78FO ) LENGTH (4) 
1587 SETWR ADDRESS, HEX LOCATION (000023E8) IN CSECT(U78FO ) LENGTH(4) 
252 SIX ABSOLUTE. HEX VALUE (00000006) 
357 skocp ABBE S, HEX, $CATEY (00805904. 3" CEEGT (UIBEO gh hENGTH (2 
: 1073 1101 1106 1107 1108 1122 1123 1124 1258 
1453 1675 1676 1677 1694 1696 1697 1698 1704 
1706 1709 1710 1711 #1734 1735 1736 1781 1783 
1174 SSIZ ADDRESS. HEX LOCATION (00002032) IN CSECT(U78FO ) LENGTH (2) 
216 START ABSOLUTE. HEX VALUE (0000000A) 
1831 STOP2 ADDRESS. HEX LOCATION (000026DC) IN CSECT(U78FO ) LENGTH(4) 
1836 STOP3 ADDRESS, HEX LOCATION (000026EE) IN CSECT(U78FO ) LENGTH(4) 
1833 STOP4 ADDRESS. HEX LOCATION (000026E4) IN CSECT(U78FO ) LENGTH (4) 
1529 STPF6 ADDRESS. HEX LOCATION(00002378) IN CSECT(U78FO  ) LENGTH(2) 
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LOCATION (0000 1DD4) 
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LENGTH (6) 
LENGTH (6) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
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